   2 .
   3 .
   4 :return 
   5 .REVERSE
   6 .BRETT BILBRAY
   7 .MIKE TOTH
   8 .DICK HOUSER
   9 NT=0
  10 N=9;clear 
  20 @(1)=rnd (9)
  30 for K=2to N
  40 @(K)=rnd (9)
  50 for J=1to K-1
  60 if @(K)=@(J)goto 40
  70 next J;next K
  80 CY=25
  90 print "THE LIST IS"
 100 T=0
 110 gosub 280
 120 CY=-20;CX=0;Q=0;NT=0
 130 O=KN(1)div 32+6;if TR(1)=1goto 160
 135 CY=-33
 140 if O#Q CX=-77;print "REVERSE DIGITS 1 THRU ",#1,O;Q=O
 150 goto 130
 160 T=T+1
 170 for K=1to Qdiv 2
 180 Z=@(K)
 190 @(K)=@(Q-K+1)
 200 @(Q-K+1)=Z
 210 next K
 220 gosub 280
 230 for K=1to 9;if @(K)#Kgoto 120
 240 next K
 250 CX=-70
 255 clear 
 260 CY=0;print "  YOU WON IN ",;TV=Tdiv 10+48;TV=T-Tdiv 10mul 10+48;print " MOVES"
 265 print "      PULL TR(1) TO              PLAY AGAIN"
 270 if TR(1)#1goto 270
 275 goto 10
 280 CX=-50;CY=0
 290 for B=1to N;TV=48+@(B);TV=32;next B
 300 return 
:return ;run 